(command-line-1): Rename -scriptload to -internal-script.

diff --git a/lisp/startup.el b/lisp/startup.el
index 8ab56eee180092325488e8407ad74cf018d53ece..5013da48ba1a67b6ef1a1e5dd0529fd557c41515 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -2085,8 +2085,8 @@ A fancy display is used on graphic displays, normal otherwise."
                     (load file nil t)))
 
                  ;; This is used to handle -script.  It's not clear
-                 ;; we need to document it.
-                 ((member argi '("-scriptload"))
+                 ;; we need to document it (it is totally internal).
+                 ((member argi '("-internal-script"))
                   (let* ((file (command-line-normalize-file-name
                                 (or argval (pop command-line-args-left))))
                          ;; Take file from default dir.